home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Games / GAMES.ARC / -] VENTURE (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  2.5 KB  |  66 lines
  1. 5 PRINT"[147][142]"
  2. 10 G=G+1:ONGGOTO20,30
  3. 20 LOAD"V-INTRO.GRAPHICS",8,1
  4. 30 GOSUB63000:SYS679
  5. 40 SC=49152:SP=SC+1016:SE=57344:SL=INT(SC/1024)*4:V=53248
  6. 42 Z=16384:CH=(SC-INT(SC/Z)*Z)/64+(SE-INT(SE/Z)*Z)/1024
  7. 45 POKEV+32,11:POKEV+33,0:POKEV+17,11:POKE56578,PEEK(56578)OR3
  8. 50 POKE56576,(PEEK(56576)AND252):POKEV+24,CH:POKE648,SL:PRINT"[147]"
  9. 55 POKE198,0:POKEV+17,27:X=0
  10. 60 DATA 173,2,0,141,1,208,141,3,208,141,5,208,141,7,208,141,9,208,96
  11. 65 DATA 64,112,160,208,0,128,176,224,-1
  12. 70 READA:IFA>=0THENPOKE50176+X,A:X=X+1:GOTO70
  13. 84 POKEV+21,0:POKEV+28,255:POKEV+37,2:POKEV+38,10:POKEV+29,255:POKEV+23,31
  14. 86 FORA=VTOV+15:POKEA,0:NEXT:FORA=V+39TOV+46:POKEA,7:NEXT
  15. 88 FORA=0TO7:POKESP+A,144+A:NEXT:FORA=0TO7:POKEV+(A*2),PEEK(50195+A):NEXT
  16. 90 POKEV+16,16:POKEV+21,255:POKEV+21,31
  17. 95 FORA=0TO3000:NEXT
  18. 100 POKE2,0:FORA=0TO98:GETA$:IFA$=" "THEN59000
  19. 102 POKE2,A:SYS50176:FORB=0TO40:NEXT:NEXT
  20. 103 H=350:GOSUB50000:CO=55296
  21. 105 FORA=0TO15:POKECO+219-A,4:POKESC+219-A,67:POKECO+220+A,4
  22. 110 POKESC+220+A,67:H=0:GOSUB50000:NEXTA
  23. 112 POKECO+203,4:POKESC+203,112:POKECO+236,4:POKESC+236,110
  24. 115 FORA=1TO4:POKECO+203+A*40,4:POKESC+203+A*40,66:POKECO+236+A*40,4
  25. 120 POKESC+236+A*40,66:H=0:GOSUB50000:NEXTA
  26. 125 POKECO+403,4:POKESC+403,109:POKECO+436,4:POKESC+436,125
  27. 130 FORA=1TO16:POKECO+403+A,4:POKESC+403+A,67:POKECO+436-A,4
  28. 135 POKESC+436-A,67:H=0:GOSUB50000:NEXTA
  29. 140 FORA=V+11TOV+15STEP2:POKEA,148:NEXT
  30. 150 H=350:GOSUB50000:FORA=0TO2:POKESP+5+A,169+A:NEXT:POKEV+21,255
  31. 160 READU:IFU=256THEN170
  32. 163 POKESP+5,U:POKESP+6,U+1:POKESP+7,U+2:H=0:GOSUB50000:GOTO160
  33. 170 PRINT""TAB(19)"BY"
  34. 175 N$(1)=" MARK":N$(2)="REJHON"
  35. 180 PRINT:FORA=1TO2:PRINTSPC(17);:FORB=1TOLEN(N$(A)):PRINTMID$(N$(A),B,1);:H=50
  36. 190 GOSUB50000:NEXT:PRINT:NEXT
  37. 200 H=600:GOSUB50000
  38. 210 FORA=0TO245:POKEV+37,A+5:POKEV+38,A+10:FORB=V+39TOV+46:POKEB,A:NEXT:H=0
  39. 215 GOSUB50000:NEXT:GOTO59000
  40. 4000 DATA163,169,163,163,169,160,163,169,160,166,160,163,166,163,160,163,178
  41. 4005 DATA181,160,178,166,160,181,160,163,178,160,178,160,160,181,172,175
  42. 4010 DATA175,172,172,149,175,175,172,172,149,175,172,175,149,256
  43. 49999 END
  44. 50000 FORZX=0TOH:GETA$:IFA$=" "THEN59000
  45. 50005 NEXT:RETURN
  46. 59000 EX$="":XX=0:POKEV+21,0:PRINT"[147]":FORA=1TO1000:NEXT
  47. 59005 PRINT"[147]VENTURE"
  48. 59010 PRINT"[150]PLAY THE [153]R[150]EGULAR OR [153]C[150]OMPILED VERSION?"
  49. 59020 PRINT"(THE COMPILED VERSION IS BETTER)"
  50. 59030 PRINT"ENTER [153]<R>[150] OR [153]<C>[150] PLEASE."
  51. 59040 XX=XX+1:GETX$:IFX$=""ANDXX<1000THEN59040
  52. 59050 IFX$<>"R"ANDX$<>"C"ANDX$<>""THEN59040
  53. 59060 IFX$=""ORX$="C"THENEX$="C/"
  54. 59070 IFEX$=""THENPRINT"[153]<REGULAR>[150] COMING UP...."
  55. 59080 IFEX$<>""THENPRINT"[153]<COMPILED>[150] COMING UP...."
  56. 59090 FORA=1TO1500:NEXT
  57. 60000 PRINT"[147]":FORA=0TO500:NEXT
  58. 60005 PRINT"[147]PLEASE WAIT....[144]"
  59. 60010 SYS57812"V-GAME.GRAPHICS",8,1:SYS62631
  60. 60015 PRINT"[144]LOAD"CHR$(34)EX$"V-GAME.PROGRAM"CHR$(34)",8"
  61. 60020 POKE198,4:POKE631,13:POKE632,82:POKE633,213:POKE634,13:NEW
  62. 63000 POKE679,120:POKE680,169:POKE681,180:POKE682,141:POKE683,20:POKE684,3
  63. 63002 POKE685,169:POKE686,2:POKE687,141:POKE688,21:POKE689,3:POKE690,88
  64. 63004 POKE691,96:POKE692,32:POKE693,234:POKE694,255:POKE695,169:POKE696,255
  65. 63008 POKE697,133:POKE698,145:POKE699,76:POKE700,52:POKE701,234:RETURN
  66.